home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / magazi~1 / 225 / analog.46 / format.bas < prev    next >
Encoding:
BASIC Source File  |  1987-12-31  |  1.5 KB  |  33 lines
  1. 10 ' Format Plus: Copyright 1986 by Brian Duggan
  2. 20 Fullw 2: Clearw 2
  3. 30 Gotoxy 24,2: ? "* * * FORMAT P L U S * * * "
  4. 40 Gotoxy 27,5: ? "TOS Version: "
  5. 50 Gotoxy 26,3: ? Chr$(189);" 1986 by Brian Duggan"
  6. 60 Txt =9 : Gosub Effect: Gotoxy 14,10 : ? "REMINDER:";
  7. 70 Txt =0: Gosub Effect: ? "  For 23,000 bytes/sec WRITE rate"
  8. 80 Gotoxy 24,11: ? "Poke &H444,0 (255 to restore Verify)"
  9. 90 'TOS Version check ********
  10. 100 Def Seg =&H5000: A =Peek(&H18): B =Peek(&H19)
  11. 110 If (A =5 AND B =41) OR (A =6 AND B =32) Then  f =0: Goto Modify
  12. 120 F$ ="************* A B O R T E D *****************"
  13. 130 Gotoxy 41,5: ?"Not 5-19 or 6-20-85 TOS"
  14. 140 Color 2: Goto Finish
  15. 150 Modify:  If A =6 Then Adjust =-2 Else Adjust =0
  16. 160 Gotoxy 40,5: ? "O.K.":F$ ="******* C O M P L E T E D--Ready To Format *******
  17. 170 Color 3: Goto ChangeTOS
  18. 180 Effect:  Def Seg =0
  19. 190 Poke Contrl,106: Poke contrl+2,0: Poke contrl+6,1:Poke intin,Txt
  20. 200 vdisys(1): Return
  21. 210 FINISH: Gotoxy 14,8: ? F$: Color 1
  22. 220 Sound 1,8,10,4,55: Sound 1,0,0,0,0: End
  23. 230 ChangeTOS:' **** Original TOS needed in Ram ****
  24. 240 Def Seg = &H100+ Adjust
  25. 250 Poke &H56c,0: Poke &H56d,&H0c
  26. 260 Def Seg = &H6000+ Adjust
  27. 270 Poke &H563,&H22:Poke &H582,2:Poke &H583,&H18
  28. 280 Poke &H57c,&H61:Poke &H57d,0:Poke &H57e,&H1F:Poke &H57f,&H78
  29. 290 for x =0 to 300:poke &H24f6+x,Peek(&H4f6+x):NEXT
  30. 300 Poke &H2521,&H01:Poke &H254f,&H6F:Poke &H2573,&H6C
  31. 310 Poke &H2576,&H4e:Poke &H2577,&H75
  32. 320 Goto Finish:' Ready to run Format Utility
  33. ə